home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Die Speccy' 97
/
Die Speccy' 97.iso
/
amiga_system
/
the_aminet
/
util
/
misc
/
ftransd_2_1a.lha
/
FTransD_2.1a
/
ARexx-Scripts
/
FTDatei.ced
< prev
next >
Wrap
Text File
|
1995-09-28
|
1KB
|
67 lines
/* $VER: FTDatei.ced 1.1 (05.06.95)
*
* FTrans-CygnusEd ARexx-Script (c) Copyright 1995 by Rainer Hess
*
* ▄bersetzt die ganze Datei,im aktiven Fenster in eine andere Sprache.
*
* -------------------------------------------------------------
* WICHTIG: In Zeile 15 den richtigen Pfad fⁿr FTrans angeben!
* z.b: WORK:FTrans/FTrans
* -------------------------------------------------------------
*
*/
cr='0A'x
FTRANSPATH = 'RUN SAS:PRG/FT/FTrans'
options results
ok = show("P","FTRANS.1") /* LΣuft FTrans schon? */
if ok = 0 then do
address command FTRANSPATH /* Wenn FTRans nicht lΣuft, FTrans starten. */
address command WaitForPort FTRANS.1 /* Warte bis FTrans gestartet ist */
end
address 'rexx_ced'
STATUS 21
if result = ' ' then do
okay1 "Diese Datei hat noch keinen Namen," || cr || "erst abspeichern dann ⁿbersetzen."
exit
end
STATUS 19
datei = result
OPEN NEW
BEG OF FILE
Text " Bitte warten... ╗" (Datei) "½ wird ⁿbersetzt"; 'END OF LINE'
address 'FTRANS.1'
LockGUI
VORSCHLAG
old_vorschlag = result /* alten Zustand merken */
AUTOLERNEN
old_autolernen = result /* alten Zustand merken */
VORSCHLAG OFF /* Ausschalten */
AUTOLERNEN OFF /* Ausschalten */
FTText datei (datei).Deutsch
VORSCHLAG old_vorschlag /* alten Zustand wieder herstellen */
AUTOLERNEN old_autolernen /* alten Zustand wieder herstellen */
UnlockGUI
address 'rexx_ced'
Delete line
OPEN (datei).Deutsch
exit 0